﻿Imports System.IO

Public Class VisioShapeInformation

    Private Shared _ListOfVisioShapeNames As List(Of String)
    Public Shared ReadOnly Property ListOfVisioShapeNames(ByVal aFolder As String) As List(Of String)
        Get
            Dim myList As List(Of String) = _ListOfVisioShapeNames
            If myList Is Nothing Then
                myList = New List(Of String)
                For Each myFile As String In Directory.GetFiles(aFolder)
                    Dim myFilePath As String = aFolder & "\" & myFile
                    Dim myFI As New FileInfo(myFilePath)
                    myList.Add(myFI.Name)
                Next
                _ListOfVisioShapeNames = myList
            End If
            Return myList
        End Get
    End Property

End Class
